home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Aminet 19
/
Aminet 19 (1997)(GTI - Schatztruhe)[!][Jun 1997].iso
/
Aminet
/
comm
/
cnet
/
cnet_toolkit.lha
/
routines
/
UNLOCK
< prev
next >
Wrap
Text File
|
1997-04-05
|
208b
|
3 lines
UNLOCK: procedure;arg p;getuser 2400088;ta=result;if p=0 then do i=1 to ta;savescratch (-i);sendstring ".";end i
else do;findaccount p;id=result;savescratch (-id);end;transmit "Account(s) unlocked.";return